/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / perl-mode.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 57 65 64 20 | 41 75 67 20 31 37 20 31 | on Wed |Aug 17 1|
|00000040| 38 3a 33 34 3a 35 31 20 | 31 39 39 34 0a 3b 3b 3b |8:34:51 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 70 65 72 6c 2d 6d | 6f 64 65 2e 65 6c 0a 3b |p/perl-m|ode.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 32 35 2e 39 | 33 2e 31 2e 0a 3b 3b 3b | 19.25.9|3.1..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))).  |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 60 2f 68 6f 6d 65 |  (error| "`/home|
|000001a0| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|000001b0| 70 2f 70 65 72 6c 2d 6d | 6f 64 65 2e 65 6c 27 20 |p/perl-m|ode.el' |
|000001c0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001d0| 20 45 6d 61 63 73 20 31 | 39 22 29 29 0a 0a 28 64 | Emacs 1|9"))..(d|
|000001e0| 65 66 76 61 72 20 70 65 | 72 6c 2d 6d 6f 64 65 2d |efvar pe|rl-mode-|
|000001f0| 61 62 62 72 65 76 2d 74 | 61 62 6c 65 20 6e 69 6c |abbrev-t|able nil|
|00000200| 20 22 5c 0a 41 62 62 72 | 65 76 20 74 61 62 6c 65 | "\.Abbr|ev table|
|00000210| 20 69 6e 20 75 73 65 20 | 69 6e 20 70 65 72 6c 2d | in use |in perl-|
|00000220| 6d 6f 64 65 20 62 75 66 | 66 65 72 73 2e 22 29 0a |mode buf|fers.").|
|00000230| 28 64 65 66 69 6e 65 2d | 61 62 62 72 65 76 2d 74 |(define-|abbrev-t|
|00000240| 61 62 6c 65 20 28 71 75 | 6f 74 65 20 70 65 72 6c |able (qu|ote perl|
|00000250| 2d 6d 6f 64 65 2d 61 62 | 62 72 65 76 2d 74 61 62 |-mode-ab|brev-tab|
|00000260| 6c 65 29 20 6e 69 6c 29 | 0a 28 64 65 66 76 61 72 |le) nil)|.(defvar|
|00000270| 20 70 65 72 6c 2d 6d 6f | 64 65 2d 6d 61 70 20 6e | perl-mo|de-map n|
|00000280| 69 6c 20 22 5c 0a 4b 65 | 79 6d 61 70 20 75 73 65 |il "\.Ke|ymap use|
|00000290| 64 20 69 6e 20 50 65 72 | 6c 20 6d 6f 64 65 2e 22 |d in Per|l mode."|
|000002a0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 84 |).(byte-|code "..|
|000002b0| 43 00 c1 20 10 c2 08 c3 | c4 23 88 c2 08 c5 c4 23 |C.. ....|.#.....#|
|000002c0| 88 c2 08 c6 c4 23 88 c2 | 08 c7 c4 23 88 c2 08 c8 |.....#..|...#....|
|000002d0| c9 23 88 c2 08 ca cb 23 | 88 c2 08 cc cd 23 88 c2 |.#.....#|.....#..|
|000002e0| 08 ce cf 23 88 c2 08 d0 | d1 23 88 c2 08 d2 d3 23 |...#....|.#.....#|
|000002f0| 88 c1 87 22 20 5b 70 65 | 72 6c 2d 6d 6f 64 65 2d |..." [pe|rl-mode-|
|00000300| 6d 61 70 20 6d 61 6b 65 | 2d 73 70 61 72 73 65 2d |map make|-sparse-|
|00000310| 6b 65 79 6d 61 70 20 64 | 65 66 69 6e 65 2d 6b 65 |keymap d|efine-ke|
|00000320| 79 20 22 7b 22 20 65 6c | 65 63 74 72 69 63 2d 70 |y "{" el|ectric-p|
|00000330| 65 72 6c 2d 74 65 72 6d | 69 6e 61 74 6f 72 20 22 |erl-term|inator "|
|00000340| 7d 22 20 22 3b 22 20 22 | 3a 22 20 22 1b 01 22 20 |}" ";" "|:" ".." |
|00000350| 70 65 72 6c 2d 62 65 67 | 69 6e 6e 69 6e 67 2d 6f |perl-beg|inning-o|
|00000360| 66 2d 66 75 6e 63 74 69 | 6f 6e 20 22 1b 05 22 20 |f-functi|on ".." |
|00000370| 70 65 72 6c 2d 65 6e 64 | 2d 6f 66 2d 66 75 6e 63 |perl-end|-of-func|
|00000380| 74 69 6f 6e 20 22 1b 08 | 22 20 6d 61 72 6b 2d 70 |tion "..|" mark-p|
|00000390| 65 72 6c 2d 66 75 6e 63 | 74 69 6f 6e 20 22 1b 11 |erl-func|tion "..|
|000003a0| 22 20 69 6e 64 65 6e 74 | 2d 70 65 72 6c 2d 65 78 |" indent|-perl-ex|
|000003b0| 70 20 22 7f 22 20 62 61 | 63 6b 77 61 72 64 2d 64 |p "." ba|ckward-d|
|000003c0| 65 6c 65 74 65 2d 63 68 | 61 72 2d 75 6e 74 61 62 |elete-ch|ar-untab|
|000003d0| 69 66 79 20 22 09 22 20 | 70 65 72 6c 2d 69 6e 64 |ify "." |perl-ind|
|000003e0| 65 6e 74 2d 63 6f 6d 6d | 61 6e 64 5d 20 34 29 0a |ent-comm|and] 4).|
|000003f0| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|00000400| 20 63 2d 6d 61 63 72 6f | 2d 65 78 70 61 6e 64 29 | c-macro|-expand)|
|00000410| 20 22 63 6d 61 63 65 78 | 70 22 20 22 5c 0a 44 69 | "cmacex|p" "\.Di|
|00000420| 73 70 6c 61 79 20 74 68 | 65 20 72 65 73 75 6c 74 |splay th|e result|
|00000430| 20 6f 66 20 65 78 70 61 | 6e 64 69 6e 67 20 61 6c | of expa|nding al|
|00000440| 6c 20 43 20 6d 61 63 72 | 6f 73 20 6f 63 63 75 72 |l C macr|os occur|
|00000450| 72 69 6e 67 20 69 6e 20 | 74 68 65 20 72 65 67 69 |ring in |the regi|
|00000460| 6f 6e 2e 0a 54 68 65 20 | 65 78 70 61 6e 73 69 6f |on..The |expansio|
|00000470| 6e 20 69 73 20 65 6e 74 | 69 72 65 6c 79 20 63 6f |n is ent|irely co|
|00000480| 72 72 65 63 74 20 62 65 | 63 61 75 73 65 20 69 74 |rrect be|cause it|
|00000490| 20 75 73 65 73 20 74 68 | 65 20 43 20 70 72 65 70 | uses th|e C prep|
|000004a0| 72 6f 63 65 73 73 6f 72 | 2e 22 20 74 29 0a 28 64 |rocessor|." t).(d|
|000004b0| 65 66 76 61 72 20 70 65 | 72 6c 2d 6d 6f 64 65 2d |efvar pe|rl-mode-|
|000004c0| 73 79 6e 74 61 78 2d 74 | 61 62 6c 65 20 6e 69 6c |syntax-t|able nil|
|000004d0| 20 22 5c 0a 53 79 6e 74 | 61 78 20 74 61 62 6c 65 | "\.Synt|ax table|
|000004e0| 20 69 6e 20 75 73 65 20 | 69 6e 20 70 65 72 6c 2d | in use |in perl-|
|000004f0| 6d 6f 64 65 20 62 75 66 | 66 65 72 73 2e 22 29 0a |mode buf|fers.").|
|00000500| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 84 69 00 |(byte-co|de "..i.|
|00000510| c1 c2 20 21 10 c3 c4 c5 | 08 23 88 c3 c6 c7 08 23 |.. !....|.#.....#|
|00000520| 88 c3 c8 c9 08 23 88 c3 | ca cb 08 23 88 c3 cc cb |.....#..|...#....|
|00000530| 08 23 88 c3 cd ce 08 23 | 88 c3 cf cb 08 23 88 c3 |.#.....#|.....#..|
|00000540| d0 cb 08 23 88 c3 d1 cb | 08 23 88 c3 d2 cb 08 23 |...#....|.#.....#|
|00000550| 88 c3 d3 cb 08 23 88 c3 | d4 cb 08 23 88 c3 d5 cb |.....#..|...#....|
|00000560| 08 23 88 c3 d6 d7 08 23 | 88 c3 d8 ce 08 23 88 c3 |.#.....#|.....#..|
|00000570| d9 cb 08 23 88 c1 87 22 | 20 5b 70 65 72 6c 2d 6d |...#..."| [perl-m|
|00000580| 6f 64 65 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |ode-synt|ax-table|
|00000590| 20 6d 61 6b 65 2d 73 79 | 6e 74 61 78 2d 74 61 62 | make-sy|ntax-tab|
|000005a0| 6c 65 20 73 74 61 6e 64 | 61 72 64 2d 73 79 6e 74 |le stand|ard-synt|
|000005b0| 61 78 2d 74 61 62 6c 65 | 20 6d 6f 64 69 66 79 2d |ax-table| modify-|
|000005c0| 73 79 6e 74 61 78 2d 65 | 6e 74 72 79 20 31 30 20 |syntax-e|ntry 10 |
|000005d0| 22 3e 22 20 33 35 20 22 | 3c 22 20 33 36 20 22 2f |">" 35 "|<" 36 "/|
|000005e0| 22 20 33 37 20 22 2e 22 | 20 33 38 20 33 39 20 22 |" 37 "."| 38 39 "|
|000005f0| 5c 22 22 20 34 32 20 34 | 33 20 34 35 20 34 37 20 |\"" 42 4|3 45 47 |
|00000600| 36 30 20 36 31 20 36 32 | 20 39 32 20 22 5c 5c 22 |60 61 62| 92 "\\"|
|00000610| 20 39 36 20 31 32 34 5d | 20 34 29 0a 28 64 65 66 | 96 124]| 4).(def|
|00000620| 76 61 72 20 70 65 72 6c | 2d 69 6e 64 65 6e 74 2d |var perl|-indent-|
|00000630| 6c 65 76 65 6c 20 34 20 | 22 5c 0a 2a 49 6e 64 65 |level 4 |"\.*Inde|
|00000640| 6e 74 61 74 69 6f 6e 20 | 6f 66 20 50 65 72 6c 20 |ntation |of Perl |
|00000650| 73 74 61 74 65 6d 65 6e | 74 73 20 77 69 74 68 20 |statemen|ts with |
|00000660| 72 65 73 70 65 63 74 20 | 74 6f 20 63 6f 6e 74 61 |respect |to conta|
|00000670| 69 6e 69 6e 67 20 62 6c | 6f 63 6b 2e 22 29 0a 28 |ining bl|ock.").(|
|00000680| 64 65 66 76 61 72 20 70 | 65 72 6c 2d 63 6f 6e 74 |defvar p|erl-cont|
|00000690| 69 6e 75 65 64 2d 73 74 | 61 74 65 6d 65 6e 74 2d |inued-st|atement-|
|000006a0| 6f 66 66 73 65 74 20 34 | 20 22 5c 0a 2a 45 78 74 |offset 4| "\.*Ext|
|000006b0| 72 61 20 69 6e 64 65 6e | 74 20 66 6f 72 20 6c 69 |ra inden|t for li|
|000006c0| 6e 65 73 20 6e 6f 74 20 | 73 74 61 72 74 69 6e 67 |nes not |starting|
|000006d0| 20 6e 65 77 20 73 74 61 | 74 65 6d 65 6e 74 73 2e | new sta|tements.|
|000006e0| 22 29 0a 28 64 65 66 76 | 61 72 20 70 65 72 6c 2d |").(defv|ar perl-|
|000006f0| 63 6f 6e 74 69 6e 75 65 | 64 2d 62 72 61 63 65 2d |continue|d-brace-|
|00000700| 6f 66 66 73 65 74 20 2d | 34 20 22 5c 0a 2a 45 78 |offset -|4 "\.*Ex|
|00000710| 74 72 61 20 69 6e 64 65 | 6e 74 20 66 6f 72 20 73 |tra inde|nt for s|
|00000720| 75 62 73 74 61 74 65 6d | 65 6e 74 73 20 74 68 61 |ubstatem|ents tha|
|00000730| 74 20 73 74 61 72 74 20 | 77 69 74 68 20 6f 70 65 |t start |with ope|
|00000740| 6e 2d 62 72 61 63 65 73 | 2e 0a 54 68 69 73 20 69 |n-braces|..This i|
|00000750| 73 20 69 6e 20 61 64 64 | 69 74 69 6f 6e 20 74 6f |s in add|ition to|
|00000760| 20 60 70 65 72 6c 2d 63 | 6f 6e 74 69 6e 75 65 64 | `perl-c|ontinued|
|00000770| 2d 73 74 61 74 65 6d 65 | 6e 74 2d 6f 66 66 73 65 |-stateme|nt-offse|
|00000780| 74 27 2e 22 29 0a 28 64 | 65 66 76 61 72 20 70 65 |t'.").(d|efvar pe|
|00000790| 72 6c 2d 62 72 61 63 65 | 2d 6f 66 66 73 65 74 20 |rl-brace|-offset |
|000007a0| 30 20 22 5c 0a 2a 45 78 | 74 72 61 20 69 6e 64 65 |0 "\.*Ex|tra inde|
|000007b0| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 62 72 61 63 |ntation |for brac|
|000007c0| 65 73 2c 20 63 6f 6d 70 | 61 72 65 64 20 77 69 74 |es, comp|ared wit|
|000007d0| 68 20 6f 74 68 65 72 20 | 74 65 78 74 20 69 6e 20 |h other |text in |
|000007e0| 73 61 6d 65 20 63 6f 6e | 74 65 78 74 2e 22 29 0a |same con|text.").|
|000007f0| 28 64 65 66 76 61 72 20 | 70 65 72 6c 2d 62 72 61 |(defvar |perl-bra|
|00000800| 63 65 2d 69 6d 61 67 69 | 6e 61 72 79 2d 6f 66 66 |ce-imagi|nary-off|
|00000810| 73 65 74 20 30 20 22 5c | 0a 2a 49 6d 61 67 69 6e |set 0 "\|.*Imagin|
|00000820| 65 64 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 6f |ed inden|tation o|
|00000830| 66 20 61 6e 20 6f 70 65 | 6e 20 62 72 61 63 65 20 |f an ope|n brace |
|00000840| 74 68 61 74 20 61 63 74 | 75 61 6c 6c 79 20 66 6f |that act|ually fo|
|00000850| 6c 6c 6f 77 73 20 61 20 | 73 74 61 74 65 6d 65 6e |llows a |statemen|
|00000860| 74 2e 22 29 0a 28 64 65 | 66 76 61 72 20 70 65 72 |t.").(de|fvar per|
|00000870| 6c 2d 6c 61 62 65 6c 2d | 6f 66 66 73 65 74 20 2d |l-label-|offset -|
|00000880| 32 20 22 5c 0a 2a 4f 66 | 66 73 65 74 20 6f 66 20 |2 "\.*Of|fset of |
|00000890| 50 65 72 6c 20 6c 61 62 | 65 6c 20 6c 69 6e 65 73 |Perl lab|el lines|
|000008a0| 20 72 65 6c 61 74 69 76 | 65 20 74 6f 20 75 73 75 | relativ|e to usu|
|000008b0| 61 6c 20 69 6e 64 65 6e | 74 61 74 69 6f 6e 2e 22 |al inden|tation."|
|000008c0| 29 0a 28 64 65 66 76 61 | 72 20 70 65 72 6c 2d 74 |).(defva|r perl-t|
|000008d0| 61 62 2d 61 6c 77 61 79 | 73 2d 69 6e 64 65 6e 74 |ab-alway|s-indent|
|000008e0| 20 74 20 22 5c 0a 2a 4e | 6f 6e 2d 6e 69 6c 20 6d | t "\.*N|on-nil m|
|000008f0| 65 61 6e 73 20 54 41 42 | 20 69 6e 20 50 65 72 6c |eans TAB| in Perl|
|00000900| 20 6d 6f 64 65 20 61 6c | 77 61 79 73 20 69 6e 64 | mode al|ways ind|
|00000910| 65 6e 74 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ents the| current|
|00000920| 20 6c 69 6e 65 2e 0a 4f | 74 68 65 72 77 69 73 65 | line..O|therwise|
|00000930| 20 69 74 20 69 6e 73 65 | 72 74 73 20 61 20 74 61 | it inse|rts a ta|
|00000940| 62 20 63 68 61 72 61 63 | 74 65 72 20 69 66 20 79 |b charac|ter if y|
|00000950| 6f 75 20 74 79 70 65 20 | 69 74 20 70 61 73 74 20 |ou type |it past |
|00000960| 74 68 65 20 66 69 72 73 | 74 0a 6e 6f 6e 77 68 69 |the firs|t.nonwhi|
|00000970| 74 65 20 63 68 61 72 61 | 63 74 65 72 20 6f 6e 20 |te chara|cter on |
|00000980| 74 68 65 20 6c 69 6e 65 | 2e 22 29 0a 28 64 65 66 |the line|.").(def|
|00000990| 76 61 72 20 70 65 72 6c | 2d 74 61 62 2d 74 6f 2d |var perl|-tab-to-|
|000009a0| 63 6f 6d 6d 65 6e 74 20 | 74 20 22 5c 0a 2a 4e 6f |comment |t "\.*No|
|000009b0| 6e 2d 6e 69 6c 20 6d 65 | 61 6e 73 20 54 41 42 20 |n-nil me|ans TAB |
|000009c0| 6d 6f 76 65 73 20 74 6f | 20 65 6f 6c 20 6f 72 20 |moves to| eol or |
|000009d0| 6d 61 6b 65 73 20 61 20 | 63 6f 6d 6d 65 6e 74 20 |makes a |comment |
|000009e0| 69 6e 20 73 6f 6d 65 20 | 63 61 73 65 73 2e 0a 46 |in some |cases..F|
|000009f0| 6f 72 20 6c 69 6e 65 73 | 20 77 68 69 63 68 20 64 |or lines| which d|
|00000a00| 6f 6e 27 74 20 6e 65 65 | 64 20 69 6e 64 65 6e 74 |on't nee|d indent|
|00000a10| 69 6e 67 2c 20 54 41 42 | 20 65 69 74 68 65 72 20 |ing, TAB| either |
|00000a20| 69 6e 64 65 6e 74 73 20 | 61 6e 0a 65 78 69 73 74 |indents |an.exist|
|00000a30| 69 6e 67 20 63 6f 6d 6d | 65 6e 74 2c 20 6d 6f 76 |ing comm|ent, mov|
|00000a40| 65 73 20 74 6f 20 65 6e | 64 2d 6f 66 2d 6c 69 6e |es to en|d-of-lin|
|00000a50| 65 2c 20 6f 72 20 69 66 | 20 61 74 20 65 6e 64 2d |e, or if| at end-|
|00000a60| 6f 66 2d 6c 69 6e 65 20 | 61 6c 72 65 61 64 79 2c |of-line |already,|
|00000a70| 0a 63 72 65 61 74 65 20 | 61 20 6e 65 77 20 63 6f |.create |a new co|
|00000a80| 6d 6d 65 6e 74 2e 22 29 | 0a 28 64 65 66 76 61 72 |mment.")|.(defvar|
|00000a90| 20 70 65 72 6c 2d 6e 6f | 63 68 61 6e 67 65 20 22 | perl-no|change "|
|00000aa0| 3b 3f 23 5c 5c 7c 5c 66 | 5c 5c 7c 5c 5c 73 28 5c |;?#\\|\f|\\|\\s(\|
|00000ab0| 5c 7c 5c 5c 28 5c 5c 77 | 5c 5c 7c 5c 5c 73 5f 5c |\|\\(\\w|\\|\\s_\|
|00000ac0| 5c 29 2b 3a 22 20 22 5c | 0a 2a 4c 69 6e 65 73 20 |\)+:" "\|.*Lines |
|00000ad0| 73 74 61 72 74 69 6e 67 | 20 77 69 74 68 20 74 68 |starting| with th|
|00000ae0| 69 73 20 72 65 67 75 6c | 61 72 20 65 78 70 72 65 |is regul|ar expre|
|00000af0| 73 73 69 6f 6e 20 61 72 | 65 20 6e 6f 74 20 61 75 |ssion ar|e not au|
|00000b00| 74 6f 2d 69 6e 64 65 6e | 74 65 64 2e 22 29 0a 28 |to-inden|ted.").(|
|00000b10| 64 65 66 61 6c 69 61 73 | 20 27 70 65 72 6c 2d 6d |defalias| 'perl-m|
|00000b20| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 5c |ode #[ni|l ". ..\|
|00000b30| 6e 21 88 c3 14 c5 16 06 | 0e 07 16 08 c9 0e 5c 6e |n!......|......\n|
|00000b40| 21 88 cb cc 21 88 cd 0e | 0e 50 16 5c 66 cb cf 21 |!...!...|.P.\f..!|
|00000b50| 88 0e 5c 66 16 0f cb d0 | 21 88 d1 16 10 cb d2 21 |..\f....|!......!|
|00000b60| 88 d3 16 12 cb d4 21 88 | d1 16 14 cb d5 21 88 d6 |......!.|.....!..|
|00000b70| 16 15 cb d7 21 88 d8 16 | 17 cb d9 21 88 da 16 19 |....!...|...!....|
|00000b80| cb db 21 88 dc 16 1b cb | dd 21 88 de 16 1d cb df |..!.....|.!......|
|00000b90| 21 88 d1 16 1f e0 e1 21 | 87 22 20 5b 6b 69 6c 6c |!......!|." [kill|
|00000ba0| 2d 61 6c 6c 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |-all-loc|al-varia|
|00000bb0| 62 6c 65 73 20 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |bles use|-local-m|
|00000bc0| 61 70 20 70 65 72 6c 2d | 6d 6f 64 65 2d 6d 61 70 |ap perl-|mode-map|
|00000bd0| 20 70 65 72 6c 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 | perl-mo|de major|
|00000be0| 2d 6d 6f 64 65 20 22 50 | 65 72 6c 22 20 6d 6f 64 |-mode "P|erl" mod|
|00000bf0| 65 2d 6e 61 6d 65 20 70 | 65 72 6c 2d 6d 6f 64 65 |e-name p|erl-mode|
|00000c00| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 20 6c 6f |-abbrev-|table lo|
|00000c10| 63 61 6c 2d 61 62 62 72 | 65 76 2d 74 61 62 6c 65 |cal-abbr|ev-table|
|00000c20| 20 73 65 74 2d 73 79 6e | 74 61 78 2d 74 61 62 6c | set-syn|tax-tabl|
|00000c30| 65 20 70 65 72 6c 2d 6d | 6f 64 65 2d 73 79 6e 74 |e perl-m|ode-synt|
|00000c40| 61 78 2d 74 61 62 6c 65 | 20 6d 61 6b 65 2d 6c 6f |ax-table| make-lo|
|00000c50| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 20 70 61 72 |cal-vari|able par|
|00000c60| 61 67 72 61 70 68 2d 73 | 74 61 72 74 20 22 5e 24 |agraph-s|tart "^$|
|00000c70| 5c 5c 7c 22 20 70 61 67 | 65 2d 64 65 6c 69 6d 69 |\\|" pag|e-delimi|
|00000c80| 74 65 72 20 70 61 72 61 | 67 72 61 70 68 2d 73 65 |ter para|graph-se|
|00000c90| 70 61 72 61 74 65 20 70 | 61 72 61 67 72 61 70 68 |parate p|aragraph|
|00000ca0| 2d 69 67 6e 6f 72 65 2d | 66 69 6c 6c 2d 70 72 65 |-ignore-|fill-pre|
|00000cb0| 66 69 78 20 74 20 69 6e | 64 65 6e 74 2d 6c 69 6e |fix t in|dent-lin|
|00000cc0| 65 2d 66 75 6e 63 74 69 | 6f 6e 20 70 65 72 6c 2d |e-functi|on perl-|
|00000cd0| 69 6e 64 65 6e 74 2d 6c | 69 6e 65 20 72 65 71 75 |indent-l|ine requ|
|00000ce0| 69 72 65 2d 66 69 6e 61 | 6c 2d 6e 65 77 6c 69 6e |ire-fina|l-newlin|
|00000cf0| 65 20 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 20 |e commen|t-start |
|00000d00| 22 23 20 22 20 63 6f 6d | 6d 65 6e 74 2d 65 6e 64 |"# " com|ment-end|
|00000d10| 20 22 22 20 63 6f 6d 6d | 65 6e 74 2d 63 6f 6c 75 | "" comm|ent-colu|
|00000d20| 6d 6e 20 33 32 20 63 6f | 6d 6d 65 6e 74 2d 73 74 |mn 32 co|mment-st|
|00000d30| 61 72 74 2d 73 6b 69 70 | 20 22 5c 5c 28 5e 5c 5c |art-skip| "\\(^\\|
|00000d40| 7c 5c 5c 73 2d 5c 5c 29 | 3b 3f 23 2b 20 2a 22 20 ||\\s-\\)|;?#+ *" |
|00000d50| 63 6f 6d 6d 65 6e 74 2d | 69 6e 64 65 6e 74 2d 66 |comment-|indent-f|
|00000d60| 75 6e 63 74 69 6f 6e 20 | 70 65 72 6c 2d 63 6f 6d |unction |perl-com|
|00000d70| 6d 65 6e 74 2d 69 6e 64 | 65 6e 74 20 70 61 72 73 |ment-ind|ent pars|
|00000d80| 65 2d 73 65 78 70 2d 69 | 67 6e 6f 72 65 2d 63 6f |e-sexp-i|gnore-co|
|00000d90| 6d 6d 65 6e 74 73 20 72 | 75 6e 2d 68 6f 6f 6b 73 |mments r|un-hooks|
|00000da0| 20 70 65 72 6c 2d 6d 6f | 64 65 2d 68 6f 6f 6b 5d | perl-mo|de-hook]|
|00000db0| 20 32 20 22 5c 0a 4d 61 | 6a 6f 72 20 6d 6f 64 65 | 2 "\.Ma|jor mode|
|00000dc0| 20 66 6f 72 20 65 64 69 | 74 69 6e 67 20 50 65 72 | for edi|ting Per|
|00000dd0| 6c 20 63 6f 64 65 2e 0a | 45 78 70 72 65 73 73 69 |l code..|Expressi|
|00000de0| 6f 6e 20 61 6e 64 20 6c | 69 73 74 20 63 6f 6d 6d |on and l|ist comm|
|00000df0| 61 6e 64 73 20 75 6e 64 | 65 72 73 74 61 6e 64 20 |ands und|erstand |
|00000e00| 61 6c 6c 20 50 65 72 6c | 20 62 72 61 63 6b 65 74 |all Perl| bracket|
|00000e10| 73 2e 0a 54 61 62 20 69 | 6e 64 65 6e 74 73 20 66 |s..Tab i|ndents f|
|00000e20| 6f 72 20 50 65 72 6c 20 | 63 6f 64 65 2e 0a 43 6f |or Perl |code..Co|
|00000e30| 6d 6d 65 6e 74 73 20 61 | 72 65 20 64 65 6c 69 6d |mments a|re delim|
|00000e40| 69 74 65 64 20 77 69 74 | 68 20 23 20 2e 2e 2e 20 |ited wit|h # ... |
|00000e50| 5c 5c 6e 2e 0a 50 61 72 | 61 67 72 61 70 68 73 20 |\\n..Par|agraphs |
|00000e60| 61 72 65 20 73 65 70 61 | 72 61 74 65 64 20 62 79 |are sepa|rated by|
|00000e70| 20 62 6c 61 6e 6b 20 6c | 69 6e 65 73 20 6f 6e 6c | blank l|ines onl|
|00000e80| 79 2e 0a 44 65 6c 65 74 | 65 20 63 6f 6e 76 65 72 |y..Delet|e conver|
|00000e90| 74 73 20 74 61 62 73 20 | 74 6f 20 73 70 61 63 65 |ts tabs |to space|
|00000ea0| 73 20 61 73 20 69 74 20 | 6d 6f 76 65 73 20 62 61 |s as it |moves ba|
|00000eb0| 63 6b 2e 0a 5c 5c 7b 70 | 65 72 6c 2d 6d 6f 64 65 |ck..\\{p|erl-mode|
|00000ec0| 2d 6d 61 70 7d 0a 56 61 | 72 69 61 62 6c 65 73 20 |-map}.Va|riables |
|00000ed0| 63 6f 6e 74 72 6f 6c 6c | 69 6e 67 20 69 6e 64 65 |controll|ing inde|
|00000ee0| 6e 74 61 74 69 6f 6e 20 | 73 74 79 6c 65 3a 0a 20 |ntation |style:. |
|00000ef0| 70 65 72 6c 2d 74 61 62 | 2d 61 6c 77 61 79 73 2d |perl-tab|-always-|
|00000f00| 69 6e 64 65 6e 74 0a 20 | 20 20 20 4e 6f 6e 2d 6e |indent. |   Non-n|
|00000f10| 69 6c 20 6d 65 61 6e 73 | 20 54 41 42 20 69 6e 20 |il means| TAB in |
|00000f20| 50 65 72 6c 20 6d 6f 64 | 65 20 73 68 6f 75 6c 64 |Perl mod|e should|
|00000f30| 20 61 6c 77 61 79 73 20 | 69 6e 64 65 6e 74 20 74 | always |indent t|
|00000f40| 68 65 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2c |he curre|nt line,|
|00000f50| 0a 20 20 20 20 72 65 67 | 61 72 64 6c 65 73 73 20 |.    reg|ardless |
|00000f60| 6f 66 20 77 68 65 72 65 | 20 69 6e 20 74 68 65 20 |of where| in the |
|00000f70| 6c 69 6e 65 20 70 6f 69 | 6e 74 20 69 73 20 77 68 |line poi|nt is wh|
|00000f80| 65 6e 20 74 68 65 20 54 | 41 42 20 63 6f 6d 6d 61 |en the T|AB comma|
|00000f90| 6e 64 20 69 73 20 75 73 | 65 64 2e 0a 20 70 65 72 |nd is us|ed.. per|
|00000fa0| 6c 2d 74 61 62 2d 74 6f | 2d 63 6f 6d 6d 65 6e 74 |l-tab-to|-comment|
|00000fb0| 0a 20 20 20 20 4e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |.    Non|-nil mea|
|00000fc0| 6e 73 20 74 68 61 74 20 | 66 6f 72 20 6c 69 6e 65 |ns that |for line|
|00000fd0| 73 20 77 68 69 63 68 20 | 64 6f 6e 27 74 20 6e 65 |s which |don't ne|
|00000fe0| 65 64 20 69 6e 64 65 6e | 74 69 6e 67 2c 20 54 41 |ed inden|ting, TA|
|00000ff0| 42 20 77 69 6c 6c 0a 20 | 20 20 20 65 69 74 68 65 |B will. |   eithe|
|00001000| 72 20 64 65 6c 65 74 65 | 20 61 6e 20 65 6d 70 74 |r delete| an empt|
|00001010| 79 20 63 6f 6d 6d 65 6e | 74 2c 20 69 6e 64 65 6e |y commen|t, inden|
|00001020| 74 20 61 6e 20 65 78 69 | 73 74 69 6e 67 20 63 6f |t an exi|sting co|
|00001030| 6d 6d 65 6e 74 2c 20 6d | 6f 76 65 20 0a 20 20 20 |mment, m|ove .   |
|00001040| 20 74 6f 20 65 6e 64 2d | 6f 66 2d 6c 69 6e 65 2c | to end-|of-line,|
|00001050| 20 6f 72 20 69 66 20 61 | 74 20 65 6e 64 2d 6f 66 | or if a|t end-of|
|00001060| 2d 6c 69 6e 65 20 61 6c | 72 65 61 64 79 2c 20 63 |-line al|ready, c|
|00001070| 72 65 61 74 65 20 61 20 | 6e 65 77 20 63 6f 6d 6d |reate a |new comm|
|00001080| 65 6e 74 2e 0a 20 70 65 | 72 6c 2d 6e 6f 63 68 61 |ent.. pe|rl-nocha|
|00001090| 6e 67 65 0a 20 20 20 20 | 4c 69 6e 65 73 20 73 74 |nge.    |Lines st|
|000010a0| 61 72 74 69 6e 67 20 77 | 69 74 68 20 74 68 69 73 |arting w|ith this|
|000010b0| 20 72 65 67 75 6c 61 72 | 20 65 78 70 72 65 73 73 | regular| express|
|000010c0| 69 6f 6e 20 61 72 65 20 | 6e 6f 74 20 61 75 74 6f |ion are |not auto|
|000010d0| 2d 69 6e 64 65 6e 74 65 | 64 2e 0a 20 70 65 72 6c |-indente|d.. perl|
|000010e0| 2d 69 6e 64 65 6e 74 2d | 6c 65 76 65 6c 0a 20 20 |-indent-|level.  |
|000010f0| 20 20 49 6e 64 65 6e 74 | 61 74 69 6f 6e 20 6f 66 |  Indent|ation of|
|00001100| 20 50 65 72 6c 20 73 74 | 61 74 65 6d 65 6e 74 73 | Perl st|atements|
|00001110| 20 77 69 74 68 69 6e 20 | 73 75 72 72 6f 75 6e 64 | within |surround|
|00001120| 69 6e 67 20 62 6c 6f 63 | 6b 2e 0a 20 20 20 20 54 |ing bloc|k..    T|
|00001130| 68 65 20 73 75 72 72 6f | 75 6e 64 69 6e 67 20 62 |he surro|unding b|
|00001140| 6c 6f 63 6b 27 73 20 69 | 6e 64 65 6e 74 61 74 69 |lock's i|ndentati|
|00001150| 6f 6e 20 69 73 20 74 68 | 65 20 69 6e 64 65 6e 74 |on is th|e indent|
|00001160| 61 74 69 6f 6e 0a 20 20 | 20 20 6f 66 20 74 68 65 |ation.  |  of the|
|00001170| 20 6c 69 6e 65 20 6f 6e | 20 77 68 69 63 68 20 74 | line on| which t|
|00001180| 68 65 20 6f 70 65 6e 2d | 62 72 61 63 65 20 61 70 |he open-|brace ap|
|00001190| 70 65 61 72 73 2e 0a 20 | 70 65 72 6c 2d 63 6f 6e |pears.. |perl-con|
|000011a0| 74 69 6e 75 65 64 2d 73 | 74 61 74 65 6d 65 6e 74 |tinued-s|tatement|
|000011b0| 2d 6f 66 66 73 65 74 0a | 20 20 20 20 45 78 74 72 |-offset.|    Extr|
|000011c0| 61 20 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 67 69 |a indent|ation gi|
|000011d0| 76 65 6e 20 74 6f 20 61 | 20 73 75 62 73 74 61 74 |ven to a| substat|
|000011e0| 65 6d 65 6e 74 2c 20 73 | 75 63 68 20 61 73 20 74 |ement, s|uch as t|
|000011f0| 68 65 0a 20 20 20 20 74 | 68 65 6e 2d 63 6c 61 75 |he.    t|hen-clau|
|00001200| 73 65 20 6f 66 20 61 6e | 20 69 66 20 6f 72 20 62 |se of an| if or b|
|00001210| 6f 64 79 20 6f 66 20 61 | 20 77 68 69 6c 65 2e 0a |ody of a| while..|
|00001220| 20 70 65 72 6c 2d 63 6f | 6e 74 69 6e 75 65 64 2d | perl-co|ntinued-|
|00001230| 62 72 61 63 65 2d 6f 66 | 66 73 65 74 0a 20 20 20 |brace-of|fset.   |
|00001240| 20 45 78 74 72 61 20 69 | 6e 64 65 6e 74 61 74 69 | Extra i|ndentati|
|00001250| 6f 6e 20 67 69 76 65 6e | 20 74 6f 20 61 20 62 72 |on given| to a br|
|00001260| 61 63 65 20 74 68 61 74 | 20 73 74 61 72 74 73 20 |ace that| starts |
|00001270| 61 20 73 75 62 73 74 61 | 74 65 6d 65 6e 74 2e 0a |a substa|tement..|
|00001280| 20 20 20 20 54 68 69 73 | 20 69 73 20 69 6e 20 61 |    This| is in a|
|00001290| 64 64 69 74 69 6f 6e 20 | 74 6f 20 60 70 65 72 6c |ddition |to `perl|
|000012a0| 2d 63 6f 6e 74 69 6e 75 | 65 64 2d 73 74 61 74 65 |-continu|ed-state|
|000012b0| 6d 65 6e 74 2d 6f 66 66 | 73 65 74 27 2e 0a 20 70 |ment-off|set'.. p|
|000012c0| 65 72 6c 2d 62 72 61 63 | 65 2d 6f 66 66 73 65 74 |erl-brac|e-offset|
|000012d0| 0a 20 20 20 20 45 78 74 | 72 61 20 69 6e 64 65 6e |.    Ext|ra inden|
|000012e0| 74 61 74 69 6f 6e 20 66 | 6f 72 20 6c 69 6e 65 20 |tation f|or line |
|000012f0| 69 66 20 69 74 20 73 74 | 61 72 74 73 20 77 69 74 |if it st|arts wit|
|00001300| 68 20 61 6e 20 6f 70 65 | 6e 20 62 72 61 63 65 2e |h an ope|n brace.|
|00001310| 0a 20 70 65 72 6c 2d 62 | 72 61 63 65 2d 69 6d 61 |. perl-b|race-ima|
|00001320| 67 69 6e 61 72 79 2d 6f | 66 66 73 65 74 0a 20 20 |ginary-o|ffset.  |
|00001330| 20 20 41 6e 20 6f 70 65 | 6e 20 62 72 61 63 65 20 |  An ope|n brace |
|00001340| 66 6f 6c 6c 6f 77 69 6e | 67 20 6f 74 68 65 72 20 |followin|g other |
|00001350| 74 65 78 74 20 69 73 20 | 74 72 65 61 74 65 64 20 |text is |treated |
|00001360| 61 73 20 69 66 20 69 74 | 20 77 65 72 65 0a 20 20 |as if it| were.  |
|00001370| 20 20 74 68 69 73 20 66 | 61 72 20 74 6f 20 74 68 |  this f|ar to th|
|00001380| 65 20 72 69 67 68 74 20 | 6f 66 20 74 68 65 20 73 |e right |of the s|
|00001390| 74 61 72 74 20 6f 66 20 | 69 74 73 20 6c 69 6e 65 |tart of |its line|
|000013a0| 2e 0a 20 70 65 72 6c 2d | 6c 61 62 65 6c 2d 6f 66 |.. perl-|label-of|
|000013b0| 66 73 65 74 0a 20 20 20 | 20 45 78 74 72 61 20 69 |fset.   | Extra i|
|000013c0| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 66 6f 72 20 6c |ndentati|on for l|
|000013d0| 69 6e 65 20 74 68 61 74 | 20 69 73 20 61 20 6c 61 |ine that| is a la|
|000013e0| 62 65 6c 2e 0a 0a 56 61 | 72 69 6f 75 73 20 69 6e |bel...Va|rious in|
|000013f0| 64 65 6e 74 61 74 69 6f | 6e 20 73 74 79 6c 65 73 |dentatio|n styles|
|00001400| 3a 20 20 20 20 20 20 20 | 4b 26 52 20 20 42 53 44 |:       |K&R  BSD|
|00001410| 20 20 42 4c 4b 20 20 47 | 4e 55 20 20 4c 57 0a 20 |  BLK  G|NU  LW. |
|00001420| 20 70 65 72 6c 2d 69 6e | 64 65 6e 74 2d 6c 65 76 | perl-in|dent-lev|
|00001430| 65 6c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |el      |        |
|00001440| 20 20 35 20 20 20 20 38 | 20 20 20 20 30 20 20 20 |  5    8|    0   |
|00001450| 20 32 20 20 20 20 34 0a | 20 20 70 65 72 6c 2d 63 | 2    4.|  perl-c|
|00001460| 6f 6e 74 69 6e 75 65 64 | 2d 73 74 61 74 65 6d 65 |ontinued|-stateme|
|00001470| 6e 74 2d 6f 66 66 73 65 | 74 20 20 35 20 20 20 20 |nt-offse|t  5    |
|00001480| 38 20 20 20 20 34 20 20 | 20 20 32 20 20 20 20 34 |8    4  |  2    4|
|00001490| 0a 20 20 70 65 72 6c 2d | 63 6f 6e 74 69 6e 75 65 |.  perl-|continue|
|000014a0| 64 2d 62 72 61 63 65 2d | 6f 66 66 73 65 74 20 20 |d-brace-|offset  |
|000014b0| 20 20 20 20 30 20 20 20 | 20 30 20 20 20 20 30 20 |    0   | 0    0 |
|000014c0| 20 20 20 30 20 20 20 2d | 34 0a 20 20 70 65 72 6c |   0   -|4.  perl|
|000014d0| 2d 62 72 61 63 65 2d 6f | 66 66 73 65 74 20 20 20 |-brace-o|ffset   |
|000014e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 35 20 20 |        |    -5  |
|000014f0| 20 2d 38 20 20 20 20 30 | 20 20 20 20 30 20 20 20 | -8    0|    0   |
|00001500| 20 30 0a 20 20 70 65 72 | 6c 2d 62 72 61 63 65 2d | 0.  per|l-brace-|
|00001510| 69 6d 61 67 69 6e 61 72 | 79 2d 6f 66 66 73 65 74 |imaginar|y-offset|
|00001520| 20 20 20 20 20 20 30 20 | 20 20 20 30 20 20 20 20 |      0 |   0    |
|00001530| 34 20 20 20 20 30 20 20 | 20 20 30 0a 20 20 70 65 |4    0  |  0.  pe|
|00001540| 72 6c 2d 6c 61 62 65 6c | 2d 6f 66 66 73 65 74 20 |rl-label|-offset |
|00001550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2d 35 |        |      -5|
|00001560| 20 20 20 2d 38 20 20 20 | 2d 32 20 20 20 2d 32 20 |   -8   |-2   -2 |
|00001570| 20 20 2d 32 0a 0a 54 75 | 72 6e 69 6e 67 20 6f 6e |  -2..Tu|rning on|
|00001580| 20 50 65 72 6c 20 6d 6f | 64 65 20 72 75 6e 73 20 | Perl mo|de runs |
|00001590| 74 68 65 20 6e 6f 72 6d | 61 6c 20 68 6f 6f 6b 20 |the norm|al hook |
|000015a0| 60 70 65 72 6c 2d 6d 6f | 64 65 2d 68 6f 6f 6b 27 |`perl-mo|de-hook'|
|000015b0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|000015c0| 61 73 20 28 71 75 6f 74 | 65 20 70 65 72 6c 2d 63 |as (quot|e perl-c|
|000015d0| 6f 6d 6d 65 6e 74 2d 69 | 6e 64 65 6e 74 29 20 23 |omment-i|ndent) #|
|000015e0| 5b 6e 69 6c 20 22 6e 83 | 5c 6e 00 6c 84 5c 6e 00 |[nil "n.|\n.l.\n.|
|000015f0| c0 87 8a c1 c2 78 88 69 | 54 0b 5d 29 87 22 20 5b |.....x.i|T.])." [|
|00001600| 30 20 22 20 09 22 20 6e | 69 6c 20 63 6f 6d 6d 65 |0 " ." n|il comme|
|00001610| 6e 74 2d 63 6f 6c 75 6d | 6e 5d 20 32 5d 29 0a 28 |nt-colum|n] 2]).(|
|00001620| 64 65 66 61 6c 69 61 73 | 20 27 65 6c 65 63 74 72 |defalias| 'electr|
|00001630| 69 63 2d 70 65 72 6c 2d | 74 65 72 6d 69 6e 61 74 |ic-perl-|terminat|
|00001640| 6f 72 20 23 5b 28 61 72 | 67 29 20 22 60 18 09 84 |or #[(ar|g) "`...|
|00001650| 50 00 6c 83 50 00 8a c2 | 79 88 c3 5c 66 08 c5 23 |P.l.P...|y..\f..#|
|00001660| 3f 85 3f 00 0e 06 c7 55 | 83 24 00 c8 c9 21 85 3f |?.?....U|.$...!.?|
|00001670| 00 ca cb 20 08 5c 22 1e | 5c 66 cd 0e 5c 66 38 86 |... .\".|\f..\f8.|
|00001680| 3d 00 ce 0e 5c 66 38 86 | 3d 00 cf 0e 5c 66 38 29 |=...\f8.|=...\f8)|
|00001690| 3f 29 83 50 00 d0 0e 06 | d1 5c 22 88 d2 20 88 d3 |?).P....|.\".. ..|
|000016a0| d4 21 88 29 d5 d6 09 21 | 21 87 22 20 5b 69 6e 73 |.!.)...!|!." [ins|
|000016b0| 65 72 74 70 6f 73 20 61 | 72 67 20 30 20 72 65 2d |ertpos a|rg 0 re-|
|000016c0| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 63 |search-f|orward c|
|000016d0| 6f 6d 6d 65 6e 74 2d 73 | 74 61 72 74 2d 73 6b 69 |omment-s|tart-ski|
|000016e0| 70 20 74 20 6c 61 73 74 | 2d 63 6f 6d 6d 61 6e 64 |p t last|-command|
|000016f0| 2d 63 68 61 72 20 35 38 | 20 6c 6f 6f 6b 69 6e 67 |-char 58| looking|
|00001700| 2d 61 74 20 22 5c 5c 73 | 2d 2a 5c 5c 28 5c 5c 77 |-at "\\s|-*\\(\\w|
|00001710| 5c 5c 7c 5c 5c 73 5f 5c | 5c 29 2b 24 22 20 70 61 |\\|\\s_\|\)+$" pa|
|00001720| 72 73 65 2d 70 61 72 74 | 69 61 6c 2d 73 65 78 70 |rse-part|ial-sexp|
|00001730| 20 70 65 72 6c 2d 62 65 | 67 69 6e 6e 69 6e 67 2d | perl-be|ginning-|
|00001740| 6f 66 2d 66 75 6e 63 74 | 69 6f 6e 20 70 70 73 20 |of-funct|ion pps |
|00001750| 33 20 34 20 35 20 69 6e | 73 65 72 74 2d 63 68 61 |3 4 5 in|sert-cha|
|00001760| 72 20 31 20 70 65 72 6c | 2d 69 6e 64 65 6e 74 2d |r 1 perl|-indent-|
|00001770| 6c 69 6e 65 20 64 65 6c | 65 74 65 2d 63 68 61 72 |line del|ete-char|
|00001780| 20 2d 31 20 73 65 6c 66 | 2d 69 6e 73 65 72 74 2d | -1 self|-insert-|
|00001790| 63 6f 6d 6d 61 6e 64 20 | 70 72 65 66 69 78 2d 6e |command |prefix-n|
|000017a0| 75 6d 65 72 69 63 2d 76 | 61 6c 75 65 5d 20 34 20 |umeric-v|alue] 4 |
|000017b0| 22 5c 0a 49 6e 73 65 72 | 74 20 63 68 61 72 61 63 |"\.Inser|t charac|
|000017c0| 74 65 72 20 61 6e 64 20 | 61 64 6a 75 73 74 20 69 |ter and |adjust i|
|000017d0| 6e 64 65 6e 74 61 74 69 | 6f 6e 2e 0a 49 66 20 61 |ndentati|on..If a|
|000017e0| 74 20 65 6e 64 2d 6f 66 | 2d 6c 69 6e 65 2c 20 61 |t end-of|-line, a|
|000017f0| 6e 64 20 6e 6f 74 20 69 | 6e 20 61 20 63 6f 6d 6d |nd not i|n a comm|
|00001800| 65 6e 74 20 6f 72 20 61 | 20 71 75 6f 74 65 2c 20 |ent or a| quote, |
|00001810| 63 6f 72 72 65 63 74 20 | 74 68 65 27 73 20 69 6e |correct |the's in|
|00001820| 64 65 6e 74 61 74 69 6f | 6e 2e 22 20 22 50 22 5d |dentatio|n." "P"]|
|00001830| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 70 65 72 |).(defal|ias 'per|
|00001840| 6c 2d 69 6e 64 65 6e 74 | 2d 63 6f 6d 6d 61 6e 64 |l-indent|-command|
|00001850| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00001860| 67 29 20 22 08 83 08 00 | c1 c2 21 87 0b 84 16 00 |g) "....|..!.....|
|00001870| 69 c4 20 56 83 16 00 c5 | 20 87 c6 89 89 60 1e 07 |i. V....| ....`..|
|00001880| 1e 08 1e 09 1e 5c 6e cb | 79 88 60 16 09 cc 20 16 |.....\n.|y.`... .|
|00001890| 5c 6e 0e 07 62 88 c1 cd | 0e 5c 6e 5c 22 16 08 0e |\n..b...|.\n\"...|
|000018a0| 0e 85 05 01 0e 07 60 55 | 85 05 01 0e 08 3c 83 58 |......`U|.....<.X|
|000018b0| 00 cf 0e 08 38 86 52 00 | 0e 5c 6e 89 16 09 82 5c |....8.R.|.\n....\|
|000018c0| 5c 00 0e 08 cb 55 85 05 | 01 c6 89 1e 10 1e 11 c6 |\....U..|........|
|000018d0| 7f 88 60 16 11 0e 5c 6e | 66 d2 55 83 81 00 0e 07 |..`...\n|f.U.....|
|000018e0| 0e 11 55 85 04 01 d3 d4 | 21 82 04 01 d5 0e 09 0e |..U.....|!.......|
|000018f0| 11 5c 22 16 10 d6 0e 10 | 38 83 a2 00 0e 07 0e 11 |.\".....|8.......|
|00001900| 55 85 04 01 d3 d7 d6 0e | 10 38 5c 22 82 04 01 d8 |U.......|.8\"....|
|00001910| 0e 10 38 84 b6 00 0e 07 | 0e 11 55 85 04 01 d9 20 |..8.....|..U.... |
|00001920| 82 04 01 cb 79 88 da 0e | 1b 0e 11 dc 23 83 f0 00 |....y...|....#...|
|00001930| 6c 83 d7 00 cb 94 62 88 | dd c6 78 88 de 60 0e 11 |l.....b.|..x..`..|
|00001940| 5c 22 82 04 01 0e 07 60 | 57 84 e6 00 0e 07 0e 11 |\".....`|W.......|
|00001950| 55 83 eb 00 d9 20 82 04 | 01 c6 7f 82 04 01 0e 07 |U.... ..|........|
|00001960| 0e 11 55 84 fd 00 c6 7f | 82 04 01 d3 df 21 88 e0 |..U.....|.....!..|
|00001970| e1 21 2a 2c 87 22 20 5b | 61 72 67 20 70 65 72 6c |.!*,." [|arg perl|
|00001980| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 22 5c 66 |-indent-|line "\f|
|00001990| 22 20 70 65 72 6c 2d 74 | 61 62 2d 61 6c 77 61 79 |" perl-t|ab-alway|
|000019a0| 73 2d 69 6e 64 65 6e 74 | 20 63 75 72 72 65 6e 74 |s-indent| current|
|000019b0| 2d 69 6e 64 65 6e 74 61 | 74 69 6f 6e 20 69 6e 73 |-indenta|tion ins|
|000019c0| 65 72 74 2d 74 61 62 20 | 6e 69 6c 20 6f 6c 64 70 |ert-tab |nil oldp|
|000019d0| 6e 74 20 64 65 6c 74 61 | 20 6c 73 65 78 70 20 62 |nt delta| lsexp b|
|000019e0| 6f 66 20 30 20 70 65 72 | 6c 2d 62 65 67 69 6e 6e |of 0 per|l-beginn|
|000019f0| 69 6e 67 2d 6f 66 2d 66 | 75 6e 63 74 69 6f 6e 20 |ing-of-f|unction |
|00001a00| 22 5c 66 5c 5c 7c 3b 3f | 23 22 20 70 65 72 6c 2d |"\f\\|;?|#" perl-|
|00001a10| 74 61 62 2d 74 6f 2d 63 | 6f 6d 6d 65 6e 74 20 32 |tab-to-c|omment 2|
|00001a20| 20 73 74 61 74 65 20 65 | 6f 6c 20 36 31 20 6d 65 | state e|ol 61 me|
|00001a30| 73 73 61 67 65 20 22 49 | 6e 20 61 20 66 6f 72 6d |ssage "I|n a form|
|00001a40| 61 74 20 73 74 61 74 65 | 6d 65 6e 74 22 20 70 61 |at state|ment" pa|
|00001a50| 72 73 65 2d 70 61 72 74 | 69 61 6c 2d 73 65 78 70 |rse-part|ial-sexp|
|00001a60| 20 33 20 22 49 6e 20 61 | 20 73 74 72 69 6e 67 20 | 3 "In a| string |
|00001a70| 77 68 69 63 68 20 73 74 | 61 72 74 73 20 77 69 74 |which st|arts wit|
|00001a80| 68 20 61 20 25 63 2e 22 | 20 34 20 69 6e 64 65 6e |h a %c."| 4 inden|
|00001a90| 74 2d 66 6f 72 2d 63 6f | 6d 6d 65 6e 74 20 72 65 |t-for-co|mment re|
|00001aa0| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|00001ab0| 63 6f 6d 6d 65 6e 74 2d | 73 74 61 72 74 2d 73 6b |comment-|start-sk|
|00001ac0| 69 70 20 6d 6f 76 65 20 | 22 20 09 22 20 6b 69 6c |ip move |" ." kil|
|00001ad0| 6c 2d 72 65 67 69 6f 6e | 20 22 55 73 65 20 62 61 |l-region| "Use ba|
|00001ae0| 63 6b 73 6c 61 73 68 20 | 74 6f 20 71 75 6f 74 65 |ckslash |to quote|
|00001af0| 20 23 20 63 68 61 72 61 | 63 74 65 72 73 2e 22 20 | # chara|cters." |
|00001b00| 64 69 6e 67 20 74 5d 20 | 34 20 22 5c 0a 49 6e 64 |ding t] |4 "\.Ind|
|00001b10| 65 6e 74 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |ent curr|ent line|
|00001b20| 20 61 73 20 50 65 72 6c | 20 63 6f 64 65 2c 20 6f | as Perl| code, o|
|00001b30| 72 20 6f 70 74 69 6f 6e | 61 6c 6c 79 2c 20 69 6e |r option|ally, in|
|00001b40| 73 65 72 74 20 61 20 74 | 61 62 20 63 68 61 72 61 |sert a t|ab chara|
|00001b50| 63 74 65 72 2e 0a 0a 57 | 69 74 68 20 61 6e 20 61 |cter...W|ith an a|
|00001b60| 72 67 75 6d 65 6e 74 2c | 20 69 6e 64 65 6e 74 20 |rgument,| indent |
|00001b70| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6c 69 6e 65 |the curr|ent line|
|00001b80| 2c 20 72 65 67 61 72 64 | 6c 65 73 73 20 6f 66 20 |, regard|less of |
|00001b90| 6f 74 68 65 72 20 6f 70 | 74 69 6f 6e 73 2e 0a 0a |other op|tions...|
|00001ba0| 49 66 20 60 70 65 72 6c | 2d 74 61 62 2d 61 6c 77 |If `perl|-tab-alw|
|00001bb0| 61 79 73 2d 69 6e 64 65 | 6e 74 27 20 69 73 20 6e |ays-inde|nt' is n|
|00001bc0| 69 6c 20 61 6e 64 20 70 | 6f 69 6e 74 20 69 73 20 |il and p|oint is |
|00001bd0| 6e 6f 74 20 69 6e 20 74 | 68 65 20 69 6e 64 65 6e |not in t|he inden|
|00001be0| 74 61 74 69 6f 6e 0a 61 | 72 65 61 20 61 74 20 74 |tation.a|rea at t|
|00001bf0| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |he begin|ning of |
|00001c00| 74 68 65 20 6c 69 6e 65 | 2c 20 73 69 6d 70 6c 79 |the line|, simply|
|00001c10| 20 69 6e 73 65 72 74 20 | 61 20 74 61 62 2e 0a 0a | insert |a tab...|
|00001c20| 4f 74 68 65 72 77 69 73 | 65 2c 20 69 6e 64 65 6e |Otherwis|e, inden|
|00001c30| 74 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |t the cu|rrent li|
|00001c40| 6e 65 2e 20 20 49 66 20 | 70 6f 69 6e 74 20 77 61 |ne.  If |point wa|
|00001c50| 73 20 77 69 74 68 69 6e | 20 74 68 65 20 69 6e 64 |s within| the ind|
|00001c60| 65 6e 74 61 74 69 6f 6e | 0a 61 72 65 61 20 69 74 |entation|.area it|
|00001c70| 20 69 73 20 6d 6f 76 65 | 64 20 74 6f 20 74 68 65 | is move|d to the|
|00001c80| 20 65 6e 64 20 6f 66 20 | 74 68 65 20 69 6e 64 65 | end of |the inde|
|00001c90| 6e 74 61 74 69 6f 6e 20 | 61 72 65 61 2e 20 20 49 |ntation |area.  I|
|00001ca0| 66 20 74 68 65 20 6c 69 | 6e 65 20 77 61 73 0a 61 |f the li|ne was.a|
|00001cb0| 6c 72 65 61 64 79 20 69 | 6e 64 65 6e 74 65 64 20 |lready i|ndented |
|00001cc0| 70 72 6f 70 65 72 6c 79 | 20 61 6e 64 20 70 6f 69 |properly| and poi|
|00001cd0| 6e 74 20 77 61 73 20 6e | 6f 74 20 77 69 74 68 69 |nt was n|ot withi|
|00001ce0| 6e 20 74 68 65 20 69 6e | 64 65 6e 74 61 74 69 6f |n the in|dentatio|
|00001cf0| 6e 20 61 72 65 61 2c 0a | 61 6e 64 20 69 66 20 60 |n area,.|and if `|
|00001d00| 70 65 72 6c 2d 74 61 62 | 2d 74 6f 2d 63 6f 6d 6d |perl-tab|-to-comm|
|00001d10| 65 6e 74 27 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 20 |ent' is |non-nil |
|00001d20| 28 74 68 65 20 64 65 66 | 61 75 6c 74 29 2c 20 74 |(the def|ault), t|
|00001d30| 68 65 6e 20 64 6f 20 74 | 68 65 20 66 69 72 73 74 |hen do t|he first|
|00001d40| 0a 70 6f 73 73 69 62 6c | 65 20 61 63 74 69 6f 6e |.possibl|e action|
|00001d50| 20 66 72 6f 6d 20 74 68 | 65 20 66 6f 6c 6c 6f 77 | from th|e follow|
|00001d60| 69 6e 67 20 6c 69 73 74 | 3a 0a 0a 20 20 31 29 20 |ing list|:..  1) |
|00001d70| 64 65 6c 65 74 65 20 61 | 6e 20 65 6d 70 74 79 20 |delete a|n empty |
|00001d80| 63 6f 6d 6d 65 6e 74 0a | 20 20 32 29 20 6d 6f 76 |comment.|  2) mov|
|00001d90| 65 20 66 6f 72 77 61 72 | 64 20 74 6f 20 73 74 61 |e forwar|d to sta|
|00001da0| 72 74 20 6f 66 20 63 6f | 6d 6d 65 6e 74 2c 20 69 |rt of co|mment, i|
|00001db0| 6e 64 65 6e 74 69 6e 67 | 20 69 66 20 6e 65 63 65 |ndenting| if nece|
|00001dc0| 73 73 61 72 79 0a 20 20 | 33 29 20 6d 6f 76 65 20 |ssary.  |3) move |
|00001dd0| 66 6f 72 77 61 72 64 20 | 74 6f 20 65 6e 64 20 6f |forward |to end o|
|00001de0| 66 20 6c 69 6e 65 0a 20 | 20 34 29 20 63 72 65 61 |f line. | 4) crea|
|00001df0| 74 65 20 61 6e 20 65 6d | 70 74 79 20 63 6f 6d 6d |te an em|pty comm|
|00001e00| 65 6e 74 0a 20 20 35 29 | 20 6d 6f 76 65 20 62 61 |ent.  5)| move ba|
|00001e10| 63 6b 77 61 72 64 20 74 | 6f 20 73 74 61 72 74 20 |ckward t|o start |
|00001e20| 6f 66 20 63 6f 6d 6d 65 | 6e 74 2c 20 69 6e 64 65 |of comme|nt, inde|
|00001e30| 6e 74 69 6e 67 20 69 66 | 20 6e 65 63 65 73 73 61 |nting if| necessa|
|00001e40| 72 79 2e 22 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |ry." "P"|]).(defa|
|00001e50| 6c 69 61 73 20 27 70 65 | 72 6c 2d 69 6e 64 65 6e |lias 'pe|rl-inden|
|00001e60| 74 2d 6c 69 6e 65 20 23 | 5b 28 26 6f 70 74 69 6f |t-line #|[(&optio|
|00001e70| 6e 61 6c 20 6e 6f 63 68 | 61 6e 67 65 20 70 61 72 |nal noch|ange par|
|00001e80| 73 65 2d 73 74 61 72 74 | 29 20 22 c0 64 60 5a 09 |se-start|) ".d`Z.|
|00001e90| 86 5c 66 00 8a c2 20 29 | c0 89 89 1b 1c 1d 1e 06 |.\f... )|........|
|00001ea0| 1e 07 1e 08 c9 79 88 60 | 15 0e 06 66 ca 55 83 29 |.....y.`|...f.U.)|
|00001eb0| 00 c9 82 77 00 cb 0e 06 | 21 89 14 3c 83 37 00 5c |...w....|!..<.7.\|
|00001ec0| 66 82 77 00 cc 0e 0d 86 | 3f 00 0e 0e 21 83 47 00 |f.w.....|?...!.G.|
|00001ed0| c9 82 77 00 cf c0 77 88 | cc d0 21 83 5b 00 d1 5c |..w...w.|..!.[..\|
|00001ee0| 66 0e 12 5c 5c 5d 14 82 | 74 00 67 d3 55 83 69 00 |f..\\]..|t.g.U.i.|
|00001ef0| 5c 66 0e 14 5a 14 82 74 | 00 67 d5 55 83 74 00 5c |\f..Z..t|.g.U.t.\|
|00001f00| 66 0e 16 5c 5c 14 5c 66 | 69 5a 13 cf c0 77 88 0b |f..\\.\f|iZ...w..|
|00001f10| a7 83 8e 00 0b c9 55 84 | 8e 00 0d 60 7c 88 5c 66 |......U.|...`|.\f|
|00001f20| 6a 88 64 0e 07 5a 60 56 | 83 9d 00 64 0e 07 5a 62 |j.d..Z`V|...d..Zb|
|00001f30| 88 0b 2e 06 87 22 20 5b | 6e 69 6c 20 70 61 72 73 |....." [|nil pars|
|00001f40| 65 2d 73 74 61 72 74 20 | 70 65 72 6c 2d 62 65 67 |e-start |perl-beg|
|00001f50| 69 6e 6e 69 6e 67 2d 6f | 66 2d 66 75 6e 63 74 69 |inning-o|f-functi|
|00001f60| 6f 6e 20 73 68 69 66 74 | 2d 61 6d 74 20 69 6e 64 |on shift|-amt ind|
|00001f70| 65 6e 74 20 62 65 67 20 | 62 6f 66 20 70 6f 73 20 |ent beg |bof pos |
|00001f80| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00001f90| 20 30 20 36 31 20 63 61 | 6c 63 75 6c 61 74 65 2d | 0 61 ca|lculate-|
|00001fa0| 70 65 72 6c 2d 69 6e 64 | 65 6e 74 20 6c 6f 6f 6b |perl-ind|ent look|
|00001fb0| 69 6e 67 2d 61 74 20 6e | 6f 63 68 61 6e 67 65 20 |ing-at n|ochange |
|00001fc0| 70 65 72 6c 2d 6e 6f 63 | 68 61 6e 67 65 20 22 20 |perl-noc|hange " |
|00001fd0| 09 5c 66 22 20 22 5c 5c | 28 5c 5c 77 5c 5c 7c 5c |.\f" "\\|(\\w\\|\|
|00001fe0| 5c 73 5f 5c 5c 29 2b 3a | 22 20 31 20 70 65 72 6c |\s_\\)+:|" 1 perl|
|00001ff0| 2d 6c 61 62 65 6c 2d 6f | 66 66 73 65 74 20 31 32 |-label-o|ffset 12|
|00002000| 35 20 70 65 72 6c 2d 69 | 6e 64 65 6e 74 2d 6c 65 |5 perl-i|ndent-le|
|00002010| 76 65 6c 20 31 32 33 20 | 70 65 72 6c 2d 62 72 61 |vel 123 |perl-bra|
|00002020| 63 65 2d 6f 66 66 73 65 | 74 5d 20 36 20 22 5c 0a |ce-offse|t] 6 "\.|
|00002030| 49 6e 64 65 6e 74 20 63 | 75 72 72 65 6e 74 20 6c |Indent c|urrent l|
|00002040| 69 6e 65 20 61 73 20 50 | 65 72 6c 20 63 6f 64 65 |ine as P|erl code|
|00002050| 2e 0a 52 65 74 75 72 6e | 20 74 68 65 20 61 6d 6f |..Return| the amo|
|00002060| 75 6e 74 20 74 68 65 20 | 69 6e 64 65 6e 74 61 74 |unt the |indentat|
|00002070| 69 6f 6e 20 0a 63 68 61 | 6e 67 65 64 20 62 79 2c |ion .cha|nged by,|
|00002080| 20 6f 72 20 28 70 61 72 | 73 65 2d 73 74 61 74 65 | or (par|se-state|
|00002090| 29 20 69 66 20 6c 69 6e | 65 20 73 74 61 72 74 73 |) if lin|e starts|
|000020a0| 20 69 6e 20 61 20 71 75 | 6f 74 65 64 20 73 74 72 | in a qu|oted str|
|000020b0| 69 6e 67 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ing."]).|(defalia|
|000020c0| 73 20 27 63 61 6c 63 75 | 6c 61 74 65 2d 70 65 72 |s 'calcu|late-per|
|000020d0| 6c 2d 69 6e 64 65 6e 74 | 20 23 5b 28 26 6f 70 74 |l-indent| #[(&opt|
|000020e0| 69 6f 6e 61 6c 20 70 61 | 72 73 65 2d 73 74 61 72 |ional pa|rse-star|
|000020f0| 74 29 20 22 8a c0 79 88 | 60 c1 c0 c1 89 1a 1b 1c |t) "..y.|`.......|
|00002100| 1d 1e 06 0e 07 83 1b 00 | 0e 07 62 88 82 1e 00 c8 |........|..b.....|
|00002110| 20 88 60 0e 06 57 83 36 | 00 60 16 07 c9 60 0e 06 | .`..W.6|.`...`..|
|00002120| c0 23 89 13 41 40 12 82 | 1e 00 ca 0b 38 83 40 00 |.#..A@..|....8.@.|
|00002130| 0b 82 51 01 5c 6e 84 68 | 00 cb c1 77 88 67 cc 55 |..Q.\n.h|...w.g.U|
|00002140| 83 52 00 c0 82 51 01 cd | 20 88 6f 84 5f 00 68 ce |.R...Q..| .o._.h.|
|00002150| 3e 83 63 00 c0 82 51 01 | 0e 0f 82 51 01 5c 6e 66 |>.c...Q.|...Q.\nf|
|00002160| cc 55 84 77 00 5c 6e 54 | 62 88 69 82 51 01 cd 20 |.U.w.\nT|b.i.Q.. |
|00002170| 88 68 d0 3d 84 90 00 68 | d1 3d 83 a3 00 60 d2 5a |.h.=...h|.=...`.Z|
|00002180| 66 7a d3 3e 83 a3 00 68 | d0 3d 83 9a 00 d4 5c 6e |fz.>...h|.=....\n|
|00002190| 21 88 c0 79 88 cd 20 88 | 82 7a 00 68 d5 3e 84 c7 |!..y.. .|.z.h.>..|
|000021a0| 00 d4 5c 6e 21 88 0e 0f | 69 8a 0e 06 62 88 d6 d7 |..\n!...|i...b...|
|000021b0| 21 29 83 c1 00 0e 18 82 | c2 00 c0 5c 5c 5c 5c 82 |!)......|...\\\\.|
|000021c0| 51 01 5c 6e 62 88 6e 83 | df 00 8a 0e 06 62 88 d6 |Q.\nb.n.|.....b..|
|000021d0| d9 21 29 83 df 00 0e 1a | 86 51 01 8a db 75 88 dc |.!).....|.Q...u..|
|000021e0| c1 77 88 d6 dd 21 83 f3 | 00 db 79 88 82 e3 00 d6 |.w...!..|..y.....|
|000021f0| de 21 83 06 01 8a c1 7f | 88 60 14 29 df e0 21 84 |.!......|.`.)..!.|
|00002200| e3 00 60 0e 06 57 85 1c | 01 5c 66 60 56 83 1b 01 |..`..W..|.\f`V...|
|00002210| e1 20 0e 5c 22 5a 82 1c | 01 69 29 86 51 01 6e 83 |. .\"Z..|.i).Q.n.|
|00002220| 33 01 0e 1a c0 55 83 33 | 01 0e 23 0e 0f 5c 5c 82 |3....U.3|..#..\\.|
|00002230| 35 01 0e 1a e4 c1 78 88 | 6e 83 41 01 c0 82 43 01 |5.....x.|n.A...C.|
|00002240| 0e 25 68 e6 3d 83 4d 01 | e7 e8 21 88 e1 20 5c 5c |.%h.=.M.|..!.. \\|
|00002250| 5c 5c 2e 06 87 22 20 5b | 30 20 6e 69 6c 20 63 6f |\\..." [|0 nil co|
|00002260| 6e 74 61 69 6e 69 6e 67 | 2d 73 65 78 70 20 73 74 |ntaining|-sexp st|
|00002270| 61 74 65 20 63 6f 6c 6f | 6e 2d 6c 69 6e 65 2d 65 |ate colo|n-line-e|
|00002280| 6e 64 20 63 61 73 65 2d | 66 6f 6c 64 2d 73 65 61 |nd case-|fold-sea|
|00002290| 72 63 68 20 69 6e 64 65 | 6e 74 2d 70 6f 69 6e 74 |rch inde|nt-point|
|000022a0| 20 70 61 72 73 65 2d 73 | 74 61 72 74 20 70 65 72 | parse-s|tart per|
|000022b0| 6c 2d 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 66 |l-beginn|ing-of-f|
|000022c0| 75 6e 63 74 69 6f 6e 20 | 70 61 72 73 65 2d 70 61 |unction |parse-pa|
|000022d0| 72 74 69 61 6c 2d 73 65 | 78 70 20 33 20 22 20 09 |rtial-se|xp 3 " .|
|000022e0| 5c 66 22 20 31 32 33 20 | 70 65 72 6c 2d 62 61 63 |\f" 123 |perl-bac|
|000022f0| 6b 77 61 72 64 2d 74 6f | 2d 6e 6f 6e 63 6f 6d 6d |kward-to|-noncomm|
|00002300| 65 6e 74 20 28 35 39 20 | 31 32 35 29 20 70 65 72 |ent (59 |125) per|
|00002310| 6c 2d 63 6f 6e 74 69 6e | 75 65 64 2d 73 74 61 74 |l-contin|ued-stat|
|00002320| 65 6d 65 6e 74 2d 6f 66 | 66 73 65 74 20 34 34 20 |ement-of|fset 44 |
|00002330| 35 38 20 32 20 28 31 31 | 39 20 39 35 29 20 70 65 |58 2 (11|9 95) pe|
|00002340| 72 6c 2d 62 61 63 6b 77 | 61 72 64 2d 74 6f 2d 73 |rl-backw|ard-to-s|
|00002350| 74 61 72 74 2d 6f 66 2d | 63 6f 6e 74 69 6e 75 65 |tart-of-|continue|
|00002360| 64 2d 65 78 70 20 28 35 | 39 20 31 32 35 20 31 32 |d-exp (5|9 125 12|
|00002370| 33 29 20 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5b |3) looki|ng-at "[|
|00002380| 20 09 5d 2a 7b 22 20 70 | 65 72 6c 2d 63 6f 6e 74 | .]*{" p|erl-cont|
|00002390| 69 6e 75 65 64 2d 62 72 | 61 63 65 2d 6f 66 66 73 |inued-br|ace-offs|
|000023a0| 65 74 20 22 5b 20 09 5d | 2a 7d 22 20 70 65 72 6c |et "[ .]|*}" perl|
|000023b0| 2d 69 6e 64 65 6e 74 2d | 6c 65 76 65 6c 20 31 20 |-indent-|level 1 |
|000023c0| 22 20 09 5c 66 5c 6e 22 | 20 22 3b 3f 23 22 20 22 |" .\f\n"| ";?#" "|
|000023d0| 5c 5c 28 5c 5c 77 5c 5c | 7c 5c 5c 73 5f 5c 5c 29 |\\(\\w\\||\\s_\\)|
|000023e0| 2b 3a 22 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |+:" sear|ch-forwa|
|000023f0| 72 64 20 22 3a 22 20 63 | 75 72 72 65 6e 74 2d 69 |rd ":" c|urrent-i|
|00002400| 6e 64 65 6e 74 61 74 69 | 6f 6e 20 70 65 72 6c 2d |ndentati|on perl-|
|00002410| 6c 61 62 65 6c 2d 6f 66 | 66 73 65 74 20 70 65 72 |label-of|fset per|
|00002420| 6c 2d 62 72 61 63 65 2d | 6f 66 66 73 65 74 20 22 |l-brace-|offset "|
|00002430| 20 09 22 20 70 65 72 6c | 2d 62 72 61 63 65 2d 69 | ." perl|-brace-i|
|00002440| 6d 61 67 69 6e 61 72 79 | 2d 6f 66 66 73 65 74 20 |maginary|-offset |
|00002450| 34 31 20 66 6f 72 77 61 | 72 64 2d 73 65 78 70 20 |41 forwa|rd-sexp |
|00002460| 2d 31 5d 20 36 20 22 5c | 0a 52 65 74 75 72 6e 20 |-1] 6 "\|.Return |
|00002470| 61 70 70 72 6f 70 72 69 | 61 74 65 20 69 6e 64 65 |appropri|ate inde|
|00002480| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 20 63 75 72 72 |ntation |for curr|
|00002490| 65 6e 74 20 6c 69 6e 65 | 20 61 73 20 50 65 72 6c |ent line| as Perl|
|000024a0| 20 63 6f 64 65 2e 0a 49 | 6e 20 75 73 75 61 6c 20 | code..I|n usual |
|000024b0| 63 61 73 65 20 72 65 74 | 75 72 6e 73 20 61 6e 20 |case ret|urns an |
|000024c0| 69 6e 74 65 67 65 72 3a | 20 74 68 65 20 63 6f 6c |integer:| the col|
|000024d0| 75 6d 6e 20 74 6f 20 69 | 6e 64 65 6e 74 20 74 6f |umn to i|ndent to|
|000024e0| 2e 0a 52 65 74 75 72 6e | 73 20 28 70 61 72 73 65 |..Return|s (parse|
|000024f0| 2d 73 74 61 74 65 29 20 | 69 66 20 6c 69 6e 65 20 |-state) |if line |
|00002500| 73 74 61 72 74 73 20 69 | 6e 73 69 64 65 20 61 20 |starts i|nside a |
|00002510| 73 74 72 69 6e 67 2e 22 | 5d 29 0a 28 64 65 66 61 |string."|]).(defa|
|00002520| 6c 69 61 73 20 27 70 65 | 72 6c 2d 62 61 63 6b 77 |lias 'pe|rl-backw|
|00002530| 61 72 64 2d 74 6f 2d 6e | 6f 6e 63 6f 6d 6d 65 6e |ard-to-n|oncommen|
|00002540| 74 20 23 5b 6e 69 6c 20 | 22 c0 89 19 1a 09 3f 85 |t #[nil |".....?.|
|00002550| 33 00 60 12 c3 79 88 c4 | 0d 5c 6e c6 c7 24 83 1f |3.`..y..|.\n..$..|
|00002560| 00 c7 95 62 88 c8 c0 77 | 88 c9 c0 78 88 6f 86 2e |...b...w|...x.o..|
|00002570| 00 6e 3f 86 2e 00 ca 75 | 89 11 82 05 00 2a 87 22 |.n?....u|.....*."|
|00002580| 20 5b 6e 69 6c 20 73 74 | 6f 70 20 6f 70 6f 69 6e | [nil st|op opoin|
|00002590| 74 20 30 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |t 0 re-s|earch-fo|
|000025a0| 72 77 61 72 64 20 63 6f | 6d 6d 65 6e 74 2d 73 74 |rward co|mment-st|
|000025b0| 61 72 74 2d 73 6b 69 70 | 20 6d 6f 76 65 20 31 20 |art-skip| move 1 |
|000025c0| 22 3b 22 20 22 20 09 5c | 66 22 20 2d 31 5d 20 36 |";" " .\|f" -1] 6|
|000025d0| 20 22 5c 0a 4d 6f 76 65 | 20 70 6f 69 6e 74 20 62 | "\.Move| point b|
|000025e0| 61 63 6b 77 61 72 64 20 | 74 6f 20 61 66 74 65 72 |ackward |to after|
|000025f0| 20 74 68 65 20 66 69 72 | 73 74 20 6e 6f 6e 2d 77 | the fir|st non-w|
|00002600| 68 69 74 65 2d 73 70 61 | 63 65 2c 20 73 6b 69 70 |hite-spa|ce, skip|
|00002610| 70 69 6e 67 20 63 6f 6d | 6d 65 6e 74 73 2e 22 20 |ping com|ments." |
|00002620| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00002630| 28 71 75 6f 74 65 20 70 | 65 72 6c 2d 62 61 63 6b |(quote p|erl-back|
|00002640| 77 61 72 64 2d 74 6f 2d | 73 74 61 72 74 2d 6f 66 |ward-to-|start-of|
|00002650| 2d 63 6f 6e 74 69 6e 75 | 65 64 2d 65 78 70 29 20 |-continu|ed-exp) |
|00002660| 23 5b 28 6c 69 6d 29 20 | 22 68 c0 55 83 5c 6e 00 |#[(lim) |"h.U.\n.|
|00002670| c1 c2 21 88 c3 79 88 60 | 5c 66 58 83 17 00 5c 66 |..!..y.`|\fX...\f|
|00002680| 54 62 88 c5 c6 77 87 22 | 20 5b 34 31 20 66 6f 72 |Tb...w."| [41 for|
|00002690| 77 61 72 64 2d 73 65 78 | 70 20 2d 31 20 30 20 6c |ward-sex|p -1 0 l|
|000026a0| 69 6d 20 22 20 09 5c 66 | 22 20 6e 69 6c 5d 20 32 |im " .\f|" nil] 2|
|000026b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 6e |]).(defa|lias 'in|
|000026c0| 64 65 6e 74 2d 70 65 72 | 6c 2d 65 78 70 20 23 5b |dent-per|l-exp #[|
|000026d0| 6e 69 6c 20 22 c0 19 c2 | 20 1b 8a c4 7f 88 c5 20 |nil "...| ...... |
|000026e0| 88 c2 20 29 1e 06 c0 1e | 07 c0 1e 08 c0 1e 09 c0 |.. )....|........|
|000026f0| 1e 5c 6e cb 0e 06 21 66 | cc 55 83 2d 00 cd ce 21 |.\n...!f|.U.-...!|
|00002700| 82 cb 00 cd cf 21 88 8a | c0 7f 88 60 16 07 29 8a |.....!..|...`..).|
|00002710| 6d 84 4e 00 60 0e 07 58 | 83 4e 00 d0 60 64 d1 23 |m.N.`..X|.N..`d.#|
|00002720| 88 82 3a 00 c2 20 16 08 | 29 0e 06 16 09 d1 79 88 |..:.. ..|).....y.|
|00002730| 60 cb 0e 08 21 57 83 c3 | 00 d2 c0 cb 0e 06 21 5c |`...!W..|......!\|
|00002740| 22 89 16 5c 6e a7 83 7c | 00 6c 83 78 00 d3 20 88 |"..\n..||.l.x.. .|
|00002750| c2 20 16 09 c0 7f 88 60 | 16 07 d4 d0 cb 0e 09 21 |. .....`|.......!|
|00002760| 0e 07 5c 22 38 83 bd 00 | d1 79 88 d5 d6 21 83 b0 |..\"8...|.y...!..|
|00002770| 00 0e 5c 6e 3c 84 b0 00 | 0e 5c 6e d1 55 84 bd 00 |..\n<...|.\n.U...|
|00002780| d7 20 0e 5c 6e 5a 0e 18 | 55 83 bd 00 d9 0e 1a 0e |. .\nZ..|U.......|
|00002790| 07 db 23 83 bd 00 dc 20 | 88 dd 79 88 82 5a 00 cb |..#.... |..y..Z..|
|000027a0| 0b 21 62 88 cd de 21 2e | 07 87 22 20 5b 6e 69 6c |.!b...!.|.." [nil|
|000027b0| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|000027c0| 68 20 70 6f 69 6e 74 2d | 6d 61 72 6b 65 72 20 6f |h point-|marker o|
|000027d0| 6c 64 70 6e 74 20 32 20 | 70 65 72 6c 2d 62 65 67 |ldpnt 2 |perl-beg|
|000027e0| 69 6e 6e 69 6e 67 2d 6f | 66 2d 66 75 6e 63 74 69 |inning-o|f-functi|
|000027f0| 6f 6e 20 62 6f 66 2d 6d | 61 72 6b 20 65 6f 6c 20 |on bof-m|ark eol |
|00002800| 6c 61 73 74 2d 6d 61 72 | 6b 20 6c 73 65 78 70 2d |last-mar|k lsexp-|
|00002810| 6d 61 72 6b 20 64 65 6c | 74 61 20 6d 61 72 6b 65 |mark del|ta marke|
|00002820| 72 2d 70 6f 73 69 74 69 | 6f 6e 20 36 31 20 6d 65 |r-positi|on 61 me|
|00002830| 73 73 61 67 65 20 22 43 | 61 6e 27 74 20 69 6e 64 |ssage "C|an't ind|
|00002840| 65 6e 74 20 61 20 66 6f | 72 6d 61 74 20 73 74 61 |ent a fo|rmat sta|
|00002850| 74 65 6d 65 6e 74 22 20 | 22 49 6e 64 65 6e 74 69 |tement" |"Indenti|
|00002860| 6e 67 20 50 65 72 6c 20 | 65 78 70 72 65 73 73 69 |ng Perl |expressi|
|00002870| 6f 6e 2e 2e 2e 22 20 70 | 61 72 73 65 2d 70 61 72 |on..." p|arse-par|
|00002880| 74 69 61 6c 2d 73 65 78 | 70 20 30 20 70 65 72 6c |tial-sex|p 0 perl|
|00002890| 2d 69 6e 64 65 6e 74 2d | 6c 69 6e 65 20 64 65 6c |-indent-|line del|
|000028a0| 65 74 65 2d 68 6f 72 69 | 7a 6f 6e 74 61 6c 2d 73 |ete-hori|zontal-s|
|000028b0| 70 61 63 65 20 34 20 6c | 6f 6f 6b 69 6e 67 2d 61 |pace 4 l|ooking-a|
|000028c0| 74 20 22 5c 5c 73 2d 2a | 3b 3f 23 22 20 63 75 72 |t "\\s-*|;?#" cur|
|000028d0| 72 65 6e 74 2d 69 6e 64 | 65 6e 74 61 74 69 6f 6e |rent-ind|entation|
|000028e0| 20 63 6f 6d 6d 65 6e 74 | 2d 63 6f 6c 75 6d 6e 20 | comment|-column |
|000028f0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00002900| 64 20 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 2d |d commen|t-start-|
|00002910| 73 6b 69 70 20 74 20 69 | 6e 64 65 6e 74 2d 66 6f |skip t i|ndent-fo|
|00002920| 72 2d 63 6f 6d 6d 65 6e | 74 20 31 20 22 49 6e 64 |r-commen|t 1 "Ind|
|00002930| 65 6e 74 69 6e 67 20 50 | 65 72 6c 20 65 78 70 72 |enting P|erl expr|
|00002940| 65 73 73 69 6f 6e 2e 2e | 2e 64 6f 6e 65 22 5d 20 |ession..|.done"] |
|00002950| 35 20 22 5c 0a 49 6e 64 | 65 6e 74 20 65 61 63 68 |5 "\.Ind|ent each|
|00002960| 20 6c 69 6e 65 20 6f 66 | 20 74 68 65 20 50 65 72 | line of| the Per|
|00002970| 6c 20 67 72 6f 75 70 69 | 6e 67 20 66 6f 6c 6c 6f |l groupi|ng follo|
|00002980| 77 69 6e 67 20 70 6f 69 | 6e 74 2e 22 20 6e 69 6c |wing poi|nt." nil|
|00002990| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 70 65 |]).(defa|lias 'pe|
|000029a0| 72 6c 2d 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |rl-begin|ning-of-|
|000029b0| 66 75 6e 63 74 69 6f 6e | 20 23 5b 28 26 6f 70 74 |function| #[(&opt|
|000029c0| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 08 84 06 00 |ional ar|g) "....|
|000029d0| c1 10 08 c2 57 83 0f 00 | c1 75 88 08 c2 55 84 23 |....W...|.u...U.#|
|000029e0| 00 c3 c4 c5 c6 08 24 83 | 23 00 c2 95 53 62 88 60 |......$.|#...Sb.`|
|000029f0| 87 22 20 5b 61 72 67 20 | 31 20 30 20 72 65 2d 73 |." [arg |1 0 re-s|
|00002a00| 65 61 72 63 68 2d 62 61 | 63 6b 77 61 72 64 20 22 |earch-ba|ckward "|
|00002a10| 5e 5c 5c 73 28 5c 5c 7c | 5e 5c 5c 73 2d 2a 73 75 |^\\s(\\||^\\s-*su|
|00002a20| 62 5c 5c 62 5b 5e 7b 5d | 2b 7b 5c 5c 7c 5e 5c 5c |b\\b[^{]|+{\\|^\\|
|00002a30| 73 2d 2a 66 6f 72 6d 61 | 74 5c 5c 62 5b 5e 3d 5d |s-*forma|t\\b[^=]|
|00002a40| 2a 3d 5c 5c 7c 5e 5c 5c | 2e 22 20 6e 69 6c 20 6d |*=\\|^\\|." nil m|
|00002a50| 6f 76 65 5d 20 35 20 22 | 5c 0a 4d 6f 76 65 20 62 |ove] 5 "|\.Move b|
|00002a60| 61 63 6b 77 61 72 64 20 | 74 6f 20 6e 65 78 74 20 |ackward |to next |
|00002a70| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 66 75 6e |beginnin|g-of-fun|
|00002a80| 63 74 69 6f 6e 2c 20 6f | 72 20 61 73 20 66 61 72 |ction, o|r as far|
|00002a90| 20 61 73 20 70 6f 73 73 | 69 62 6c 65 2e 0a 57 69 | as poss|ible..Wi|
|00002aa0| 74 68 20 61 72 67 75 6d | 65 6e 74 2c 20 72 65 70 |th argum|ent, rep|
|00002ab0| 65 61 74 20 74 68 61 74 | 20 6d 61 6e 79 20 74 69 |eat that| many ti|
|00002ac0| 6d 65 73 3b 20 6e 65 67 | 61 74 69 76 65 20 61 72 |mes; neg|ative ar|
|00002ad0| 67 73 20 6d 6f 76 65 20 | 66 6f 72 77 61 72 64 2e |gs move |forward.|
|00002ae0| 0a 52 65 74 75 72 6e 73 | 20 6e 65 77 20 76 61 6c |.Returns| new val|
|00002af0| 75 65 20 6f 66 20 70 6f | 69 6e 74 20 69 6e 20 61 |ue of po|int in a|
|00002b00| 6c 6c 20 63 61 73 65 73 | 2e 22 20 22 70 22 5d 29 |ll cases|." "p"])|
|00002b10| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 70 65 72 6c |.(defali|as 'perl|
|00002b20| 2d 65 6e 64 2d 6f 66 2d | 66 75 6e 63 74 69 6f 6e |-end-of-|function|
|00002b30| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00002b40| 67 29 20 22 08 84 06 00 | c1 10 c2 1b 08 c4 56 83 |g) "....|......V.|
|00002b50| 56 00 60 64 57 83 56 00 | 60 c5 1e 06 1e 07 0b 83 |V.`dW.V.|`.......|
|00002b60| 29 00 c1 75 88 c8 c1 21 | 88 6f 83 34 00 6f 84 30 |)..u...!|.o.4.o.0|
|00002b70| 00 c9 75 88 c8 c9 21 88 | c5 13 ca c1 21 88 cb c5 |..u...!.|....!...|
|00002b80| 77 88 cc cd 21 83 47 00 | c1 79 88 60 0e 07 58 84 |w...!.G.|.y.`..X.|
|00002b90| 1a 00 2a 08 53 89 10 82 | 09 00 08 c4 57 85 98 00 |..*.S...|....W...|
|00002ba0| 60 1e 07 c8 c1 21 88 ce | c1 21 88 c1 79 88 60 0e |`....!..|.!..y.`.|
|00002bb0| 07 59 83 90 00 c8 cf 21 | 88 6f 84 8d 00 ca c1 21 |.Y.....!|.o.....!|
|00002bc0| 88 cb c5 77 88 cc cd 21 | 83 90 00 c1 79 88 82 90 |...w...!|....y...|
|00002bd0| 00 65 62 88 29 08 54 89 | 10 82 57 00 29 87 22 20 |.eb.).T.|..W.)." |
|00002be0| 5b 61 72 67 20 31 20 74 | 20 66 69 72 73 74 20 30 |[arg 1 t| first 0|
|00002bf0| 20 6e 69 6c 20 6e 70 6f | 73 20 70 6f 73 20 70 65 | nil npo|s pos pe|
|00002c00| 72 6c 2d 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |rl-begin|ning-of-|
|00002c10| 66 75 6e 63 74 69 6f 6e | 20 2d 31 20 66 6f 72 77 |function| -1 forw|
|00002c20| 61 72 64 2d 6c 69 73 74 | 20 22 20 09 22 20 6c 6f |ard-list| " ." lo|
|00002c30| 6f 6b 69 6e 67 2d 61 74 | 20 22 5b 23 5c 6e 5d 22 |oking-at| "[#\n]"|
|00002c40| 20 66 6f 72 77 61 72 64 | 2d 73 65 78 70 20 32 5d | forward|-sexp 2]|
|00002c50| 20 33 20 22 5c 0a 4d 6f | 76 65 20 66 6f 72 77 61 | 3 "\.Mo|ve forwa|
|00002c60| 72 64 20 74 6f 20 6e 65 | 78 74 20 65 6e 64 2d 6f |rd to ne|xt end-o|
|00002c70| 66 2d 66 75 6e 63 74 69 | 6f 6e 2e 0a 54 68 65 20 |f-functi|on..The |
|00002c80| 65 6e 64 20 6f 66 20 61 | 20 66 75 6e 63 74 69 6f |end of a| functio|
|00002c90| 6e 20 69 73 20 66 6f 75 | 6e 64 20 62 79 20 6d 6f |n is fou|nd by mo|
|00002ca0| 76 69 6e 67 20 66 6f 72 | 77 61 72 64 20 66 72 6f |ving for|ward fro|
|00002cb0| 6d 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |m the be|ginning |
|00002cc0| 6f 66 20 6f 6e 65 2e 0a | 57 69 74 68 20 61 72 67 |of one..|With arg|
|00002cd0| 75 6d 65 6e 74 2c 20 72 | 65 70 65 61 74 20 74 68 |ument, r|epeat th|
|00002ce0| 61 74 20 6d 61 6e 79 20 | 74 69 6d 65 73 3b 20 6e |at many |times; n|
|00002cf0| 65 67 61 74 69 76 65 20 | 61 72 67 73 20 6d 6f 76 |egative |args mov|
|00002d00| 65 20 62 61 63 6b 77 61 | 72 64 2e 22 20 22 70 22 |e backwa|rd." "p"|
|00002d10| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 61 |]).(defa|lias 'ma|
|00002d20| 72 6b 2d 70 65 72 6c 2d | 66 75 6e 63 74 69 6f 6e |rk-perl-|function|
|00002d30| 20 23 5b 6e 69 6c 20 22 | c0 60 21 88 c1 20 88 c0 | #[nil "|.`!.. ..|
|00002d40| 60 21 88 c2 20 88 c3 20 | 87 22 20 5b 70 75 73 68 |`!.. .. |." [push|
|00002d50| 2d 6d 61 72 6b 20 70 65 | 72 6c 2d 65 6e 64 2d 6f |-mark pe|rl-end-o|
|00002d60| 66 2d 66 75 6e 63 74 69 | 6f 6e 20 70 65 72 6c 2d |f-functi|on perl-|
|00002d70| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 66 75 6e |beginnin|g-of-fun|
|00002d80| 63 74 69 6f 6e 20 62 61 | 63 6b 77 61 72 64 2d 70 |ction ba|ckward-p|
|00002d90| 61 72 61 67 72 61 70 68 | 5d 20 32 20 22 5c 0a 50 |aragraph|] 2 "\.P|
|00002da0| 75 74 20 6d 61 72 6b 20 | 61 74 20 65 6e 64 20 6f |ut mark |at end o|
|00002db0| 66 20 50 65 72 6c 20 66 | 75 6e 63 74 69 6f 6e 2c |f Perl f|unction,|
|00002dc0| 20 70 6f 69 6e 74 20 61 | 74 20 62 65 67 69 6e 6e | point a|t beginn|
|00002dd0| 69 6e 67 2e 22 20 6e 69 | 6c 5d 29 0a             |ing." ni|l]).    |
+--------+-------------------------+-------------------------+--------+--------+